home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD004b.dsk / RND.bas < prev    next >
BASIC Source File  |  2003-06-12  |  627b  |  16 lines
  1. 300  TEXT : HOME :A$ = "": POKE  -16368,0: REM     SEED RANDOM NUMBER  
  2. 301  VTAB 6: HTAB 10: PRINT "KEEP HITTING RETURN"
  3. 302  VTAB 12: PRINT "SEED GAME ==>"
  4. 303  FOR I = 1 TO 9: VTAB 12: HTAB 16 +I: PRINT  CHR$(95);: NEXT 
  5. 305 I = 1
  6. 307 Z = 0
  7. 310  VTAB 12: HTAB 16 +I: PRINT Z;
  8. 315 KE =  PEEK( -16384): IF KE >128  THEN 350
  9. 320 Z = Z +1: IF Z >9  THEN Z = 0
  10. 325  GOTO 310
  11. 350  POKE  -16368,0:A$ = A$ + STR$(Z):I = I +1: IF I <10  THEN 307
  12. 388  PRINT 
  13. 389  VTAB 19: PRINT "A$ = ";A$
  14. 390  VTAB 21: PRINT "THIS IS A DEMO"
  15. 392  VTAB 22: PRINT "HOPE YOU CAN MAKE USE OF IT."
  16. 394  VTAB 23: PRINT "LET'S SEE THE RESULTS IN SOFTDISK."